home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0023.ua < prev    next >
Text File  |  1996-10-30  |  546b  |  42 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0023.ua
  9. `*
  10. `* Tests SWriteStr()
  11. `* Creates a file named "testfile" in the current dir. Should contain:
  12. `* "hopsasa\n"
  13.  
  14. #1 .H 2 0 0 0
  15. #2 .M "tc0023" 20 10 0 0
  16.  
  17. #10 .V "FileObject"
  18.  
  19. #20 >40 .a 10 21
  20. #21 .c 7 22
  21. #22 >23 .s "testfile"
  22. #23 .n 6
  23.  
  24. #30 .c 8 31
  25. #31 .v 10
  26.  
  27. #40 .i 41 60 50
  28. #41 .v 10
  29.  
  30. #50 .c 2 51
  31. #51 .s "Couldn't create testfile"
  32.  
  33. #60 >70 .c 27 61
  34. #61 >62 .v 10
  35. #62 >63 .s "hopsasa"
  36. #63 .n 3
  37.  
  38. #70 .c 8 71
  39. #71 .v 10
  40.  
  41.  
  42.